Script: --on windowEvent wdID,wdName,objNo,objName,objValue¬Global IssueSelection, selectedTitles¬¬global gWindowPositions, gIssuesListWindowID, serialNum¬global selectedTitleNums, gIssuesWindowName, gIssueSelection¬global cMaxFieldChars, gIssuesListStartIndex, gIssuesListPage, gMultiIssuesListSelections¬global gCompositeListing¬¬---------------------¬-- This is window #21¬---------------------¬¬if objValue="Open" then ¬ -- Restore old window position¬ put OldWindowPosition(21) into windowRect¬ if windowRect = empty then centerWindow wdName¬ else wsSet wdID,"0","Rect",windowRect¬ ¬ enable menuItem "Select All" of menu "Edit"¬ ¬ -- Set up the multilistSelections¬ put 1 into gIssueSelection¬ put empty into gMultiIssuesListSelections¬ put 0 into gIssuesListStartIndex¬ set the itemDelimiter to comma¬ put the last item of gIssueSelection into endSelect¬ put false into done¬ put 1 into x¬ repeat until done¬ add 1 to x¬ set cursor to busy¬ put the number of lines of LongPage(gCompositeListing,x) into test¬ if test = 0 then put true into done¬ else¬ put the number of lines of LongPage(gCompositeListing,x-1) into temp¬ put temp + (line (x-1) of gIssuesListStartIndex) into lowerBound¬ put lowerBound into line x of gIssuesListStartIndex¬ end if¬ end repeat¬ ¬ -- Figure out how the selection is broken up between pages¬ if (the number of lines of gIssuesListStartIndex = 1) or (the last item of gIssueSelection <= line 2 of gIssuesListStartIndex) then¬ put gIssueSelection into gMultiIssuesListSelections¬ put 1 into gIssuesListPage¬ else¬ put xlate(gIssueSelection,comma,return) into theSelectList¬ repeat with x = the number of lines of gIssuesListStartIndex down to 2¬ set cursor to busy¬ put line x of gIssuesListStartIndex into thisStartNum¬ put selectLines (theSelectList,1,"N",">" & thisStartNum) into thisPageSelections¬ put selectLines(theSelectList,1,"N","≤" & thisStartNum) into theSelectList¬ if word 1 of thisPageSelections <> empty then¬ put xlate(array2Cnst(thisPageSelections,"-",thisStartNum),return,comma) into temp¬ if the last char of temp = coma then delete the last char of temp¬ put temp into line x of gMultiIssuesListSelections¬ put x into gIssuesListPage¬ end if¬ end repeat¬ ¬ if word 1 of theSelectList<> empty then¬ put 1 into gIssuesListPage¬ put xlate(theSelectList,return,comma) into temp¬ if the last char of temp = comma then¬ delete the last char of temp¬ put temp into line 1 of gMultiIssuesListSelections¬ end if¬ end if¬ end if¬ ¬ put LongPage(gCompositeListing, gIssuesListPage) into issuesList¬ wsSet "Select Issues","comicList","Text", issuesList¬ put true into nextIsDisabled¬ if LongPage(gCompositeListing,gIssuesListPage + 1) <> empty then put false into nextIsDisabled¬ put (the number of lines of gIssuesListStartIndex > 1) into arrowsAreVisible¬ ¬ wsSet "Select Issues","0","Properties", "Prev_Visible:" & arrowsAreVisible & return & "Next_Visible:" & arrowsAreVisible & return & "PageLabel_Visible:" & arrowsAreVisible & return & "PageLabel_Text:" & gIssuesListPage & return & "ComicList_Selection:" & line gIssuesListPage of gMultiIssuesListSelections & return & "Prev_Disabled:" & (gIssuesListPage = 1) & return & "Next_Disabled:" & nextIsDisabled & return & "OK_Disabled:" & (line gIssuesListPage of gMultiIssuesListSelections = empty) & return¬ ¬ wsSet wdID,"0","Name", selectedTitles¬ ¬ ¬else if objValue="Close" then ¬ -- save the window position¬ put "21" & tab & wdName & tab & wsGet(wdID,"0","Rect") into line 21 of gWindowPositions¬ ¬ get wsGet(wdID,"ComicList","Selection")¬ put it into issueSelection¬ disable menuItem "Select All" of menu "Edit"¬end if¬¬--end windowEvent¬
ItemType: PUSH
Rect: 424,271,496,291
Disabled: TRUE
Name: OK
DefaultItem: TRUE
AutoClose: TRUE
Balloon: Click here to add the selected issues to the list of issues to be printed.
ItemType: PUSH
Rect: 331,271,411,291
Name: Cancel
CancelItem: TRUE
AutoClose: TRUE
Balloon: Click here to exit without adding the selected issues to the list of issues to be printed.
ItemType: TEXT
Rect: 12,247,242,263
TextSize: 12
WhiteColor: -8739,-8739,-8739
Text: Please choose one or more issues:
ItemType: LIST
Rect: 10,19,502,243
TextFont: Monaco
TextSize: 9
AutoSize: FALSE
GrowItem: TRUE
Name: ComicList
DoubleClickItem: 1
KeyScroll: TRUE
Text:
Balloon: This is the list of the issues for this title. Click on one or more of these, then click the OK button to add them to the list of titles to be printed.
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬global gMultiIssuesListSelections, gIssuesListPage¬put wsGet(wdID,"ComicList","Selection") into temp¬put temp into line gIssuesListPage of gMultiIssuesListSelections¬¬put ((word 1 of gMultiIssuesListSelections) = empty) into noneSelected¬wsSet wdID,"0","Properties", "OK_Disabled:" & noneSelected & return¬--end mouseUp
ItemType: TEXT
Rect: 15,2,57,14
TextFont: Geneva
TextSize: 9
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
Text: Issue
ItemType: TEXT
Rect: 67,2,84,14
TextFont: Geneva
TextSize: 9
Name: Condition
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
Text: Cd
ItemType: TEXT
Rect: 154,2,175,14
TextFont: Geneva
TextSize: 9
AutoSize: FALSE
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
Text: Qty
ItemType: TEXT
Rect: 122,2,155,14
TextFont: Geneva
TextSize: 9
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
Text: Price
ItemType: TEXT
Rect: 177,2,211,14
TextFont: Geneva
TextSize: 9
WhiteColor: -8739,-8739,-8739
TextStyle: Bold
Text: Notes
ItemType: PICT
Rect: 379,0,396,17
Visible: FALSE
Disabled: TRUE
Name: Next
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬global gIssuesListPage, gMultiIssuesListSelections, gCompositeListing¬¬set cursor to watch¬put wsGet(wdID,"comicList","Selection") into temp¬if temp = 0 then put empty into temp¬put temp into line gIssuesListPage of gMultiIssuesListSelections¬¬add 1 to gIssuesListPage¬WsSet wdID, "comicList","text", LongPage(gCompositeListing, gIssuesListPage)¬put (LongPage(gCompositeListing, gIssuesListPage + 1) = empty) into nextisDisabled¬¬wsSet wdID,"0","Properties", "ComicList_Selection:" & line gIssuesListPage of gMultiIssuesListSelections & return & "Prev_Disabled:False" & return & "Next_Disabled:" & nextIsDisabled & return & "PageLabel_Text:" & gIssuesListPage¬--end mouseUp¬
ItemType: PICT
Rect: 343,0,360,17
Visible: FALSE
Disabled: TRUE
Name: Prev
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬global gIssuesListPage, gMultiIssuesListSelections, gIssuesListPage¬¬set cursor to watch¬put wsGet(wdID,"comicList","Selection") into temp¬if temp = 0 then put empty into temp¬put temp into line gIssuesListPage of gMultiIssuesListSelections¬¬subtract 1 from gIssuesListPage¬wsSet wdID,"comicList","text", LongPage(gCompositeListing, gIssuesListPage)¬put false into nextisDisabled¬¬wsSet wdID,"0","properties", "ComicList_Selection:" & line gIssuesListPage of gMultiIssuesListSelections & return & "Prev_Disabled:" & (gIssuesListPage = 1) & return & "Next_Disabled:" & nextIsDisabled & return & "PageLabel_Text:" & gIssuesListPage¬--end mouseUp
